home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / AmSp4E.lha / AmSp_Example3.e < prev    next >
Text File  |  1998-02-05  |  1KB  |  43 lines
  1. /******************************
  2. *******************************      Used:
  3. ** example 3 for AmosBobs.m  **
  4. **                           **      - mGetIBPalette
  5. ** Display bobs/icons.       **      - mLoadIB
  6. **                           **      - mEraseIB
  7. ** (C) 1999 By Krzys Cmok    **      - mPasteQuickIB
  8. *******************************      - mPasteIB
  9. *******************************      - mPasteMaskIB
  10. */
  11.  
  12.  
  13. MODULE '*amosbobs',             /* open module for amos bobs */
  14.     'intuition/screens'    /* open module for screens */
  15.  
  16. PROC main()
  17. DEF databank,s:PTR TO screen          /* definition of datas (databank) and screen (s) */
  18.  
  19. /* load willy.abk file */
  20. IF (databank:=mLoadIB('willy.abk'))=0
  21.     WriteF('Can\at load willy.abk\n')
  22.     CleanUp()
  23. ENDIF
  24.  
  25. s:=OpenS(320,200,4,0,'Example 3');
  26. SetStdRast(s.rastport)
  27.  
  28. mGetIBPalette(databank,s)      /* palette to screen */
  29.  
  30.  
  31. /* now, show three types objects */
  32.  
  33. mPasteQuickIB(s.rastport,databank,30,30,1); TextF(80,40,'1: mPasteQuickIB - instruction');
  34. mPasteMaskIB(s.rastport,databank,30,80,6); TextF(80,90,'6: mPasteMaskIB - instruction');
  35. mPasteIB(s.rastport,databank,30,120,9); TextF(80,130,'9: mPasteIB - instruction');
  36.  
  37. REPEAT ; UNTIL Mouse()=1
  38.  
  39. CloseS(s)
  40. mEraseIB(databank)                    /* clean memory */
  41.  
  42. ENDPROC
  43.